300
How do I change the cell's background color

with AxGrid1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellValue[TObject(h),TObject(1)] := 'Cell 2';
		CellBackColor[TObject(h),TObject(1)] := $ff;
	end;
end
299
How do I change the caption or value for a particular cell

with AxGrid1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		CellValue[TObject(AddItem('Cell 1')),TObject(1)] := 'Cell 2';
	end;
end
298
How do I get the handle of the cell

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		CellBold[Nil,TObject(ItemCell[h,TObject(0)])] := True;
	end;
end
297
How do I retrieve the focused item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		ItemBold[FocusItem] := True;
	end;
end
296
How do I get the number or count of child items

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		AddItem(TObject(ChildCount[h]));
	end;
end
295
How do I enumerate the visible items

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		ItemBold[FirstVisibleItem] := True;
		ItemBold[NextVisibleItem[FirstVisibleItem]] := True;
	end;
end
294
How do I enumerate the siblings items

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		ItemBold[NextSiblingItem[FirstVisibleItem]] := True;
		ItemBold[PrevSiblingItem[NextSiblingItem[FirstVisibleItem]]] := True;
	end;
end
293
How do I get the parent item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		ItemBold[ItemParent[ItemChild[h]]] := True;
	end;
end
292
How do I get the first child item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		ItemBold[ItemChild[h]] := True;
	end;
end
291
How do I enumerate the root items

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ItemBold[RootItem[0]] := True;
		ItemUnderline[RootItem[1]] := True;
	end;
end
290
I have a hierarchy, how can I count the number of root items

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root 1');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		h := AddItem('Root 2');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		AddItem(TObject(RootCount));
	end;
end
289
How can I make an item unselectable, or not selectable

with AxGrid1 do
begin
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('unselectable - you can''t get selected');
		SelectableItem[h] := False;
		AddItem('selectable');
	end;
end
288
How can I hide or show an item

with AxGrid1 do
begin
	Columns.Add('Column');
	with Items do
	begin
		h := AddItem('hidden');
		ItemHeight[h] := 0;
		SelectableItem[h] := False;
		AddItem('visible');
	end;
end
287
How can I change the height for all items
with AxGrid1 do
begin
	DefaultItemHeight := 32;
	Columns.Add('Column');
	Items.AddItem('One');
	Items.AddItem('Two');
end
286
How do I change the height of an item
with AxGrid1 do
begin
	ScrollBySingleLine := True;
	Columns.Add('Default');
	with Items do
	begin
		ItemHeight[AddItem('height')] := 128;
	end;
	Items.AddItem('enabled');
end
285
How do I disable or enable an item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		EnableItem[AddItem('disabled')] := False;
	end;
	Items.AddItem('enabled');
end
284
How do I display as strikeout a cell

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		CellStrikeOut[TObject(AddItem('strikeout')),TObject(0)] := True;
	end;
end
283
How do I display as strikeout a cell or an item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		CellValueFormat[TObject(AddItem('gets <s>strikeout</s> only a portion of text')),TObject(0)] := EXGRIDLib.ValueFormatEnum.exHTML;
	end;
end
282
How do I display as strikeout an item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		ItemStrikeOut[AddItem('strikeout')] := True;
	end;
end
281
How do I underline a cell

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		CellUnderline[TObject(AddItem('underline')),TObject(0)] := True;
	end;
end
280
How do I underline a cell or an item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		CellValueFormat[TObject(AddItem('gets <u>underline</u> only a portion of text')),TObject(0)] := EXGRIDLib.ValueFormatEnum.exHTML;
	end;
end
279
How do I underline an item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		ItemUnderline[AddItem('underline')] := True;
	end;
end
278
How do I display as italic a cell

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		CellItalic[TObject(AddItem('italic')),TObject(0)] := True;
	end;
end
277
How do I display as italic a cell or an item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		CellValueFormat[TObject(AddItem('gets <i>italic</i> only a portion of text')),TObject(0)] := EXGRIDLib.ValueFormatEnum.exHTML;
	end;
end
276
How do I display as italic an item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		ItemItalic[AddItem('italic')] := True;
	end;
end
275
How do I bold a cell

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		CellBold[TObject(AddItem('bold')),TObject(0)] := True;
	end;
end
274
How do I bold a cell or an item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		CellValueFormat[TObject(AddItem('gets <b>bold</b> only a portion of text')),TObject(0)] := EXGRIDLib.ValueFormatEnum.exHTML;
	end;
end
273
How do I bold an item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		ItemBold[AddItem('bold')] := True;
	end;
end
272
How do I change the foreground color for the item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		hC := InsertItem(h,Nil,'Child 1');
		ItemForeColor[hC] := $ff;
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
	end;
end
271
How do I change the visual appearance for the item, using your EBN technology

with AxGrid1 do
begin
	VisualAppearance.Add(1,'c:\exontrol\images\normal.ebn');
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		hC := InsertItem(h,Nil,'Child 1');
		ItemBackColor[hC] := $1000000;
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
	end;
end
270
How do I change the background color for the item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		hC := InsertItem(h,Nil,'Child 1');
		ItemBackColor[hC] := $ff;
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
	end;
end
269
How do I expand or collapse an item

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
	end;
end
268
How do I associate an extra data to an item
with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		ItemData[AddItem('item')] := 'your extra data';
	end;
end
267
How do I get the number or count of items

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
	end;
	with Items do
	begin
		AddItem(TObject(ItemCount));
	end;
end
266
How can I specify the width of the ActiveX control, when using the InsertControlItem property

with AxGrid1 do
begin
	ScrollBySingleLine := False;
	TreeColumnIndex := 1;
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	Columns.Add('C1');
	Columns.Add('C2');
	Columns.Add('C3');
	with Items do
	begin
		h := InsertControlItem(Nil,'MSCAL.Calendar',Nil);
		ItemWidth[h] := 128;
		CellValue[TObject(h),TObject(0)] := 'This is a bit of text that is shown in the first column';
		CellSingleLine[TObject(h),TObject(0)] := EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap;
		CellValue[TObject(h),TObject(2)] := 'This is a bit of text that is shown in the third column';
		CellSingleLine[TObject(h),TObject(2)] := EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap;
	end;
end
265
How can I put the ActiveX control in a different column, when using the InsertControlItem property

with AxGrid1 do
begin
	ScrollBySingleLine := False;
	DrawGridLines := EXGRIDLib.GridLinesEnum.exAllLines;
	Columns.Add('C1');
	Columns.Add('C2');
	Columns.Add('C3');
	with Items do
	begin
		h := InsertControlItem(Nil,'MSCAL.Calendar',Nil);
		CellValue[TObject(h),TObject(0)] := 'This is a bit of text that is shown in the first column';
		CellSingleLine[TObject(h),TObject(0)] := EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap;
		ItemWidth[h] := -32001;
		CellValue[TObject(h),TObject(2)] := 'This is a bit of text that is shown in the third column';
		CellSingleLine[TObject(h),TObject(2)] := EXGRIDLib.CellSingleLineEnum.exCaptionWordWrap;
	end;
end
264
Is there any function I can use to get the program or the control identifier I've been using when called the InsertControlItem

with AxGrid1 do
begin
	Columns.Add('Default');
	ScrollBySingleLine := False;
	LinesAtRoot := EXGRIDLib.LinesAtRootEnum.exLinesAtRoot;
	with Items do
	begin
		h := InsertControlItem(Nil,'MSCAL.Calendar',Nil);
		InsertItem(h,Nil,TObject(ItemControlID[h]));
		ExpandItem[h] := True;
		h := InsertControlItem(Nil,'MSChart20Lib.MSChart',Nil);
		ItemAppearance[h] := EXGRIDLib.AppearanceEnum.Etched;
		InsertItem(h,Nil,TObject(ItemControlID[h]));
		ExpandItem[h] := True;
	end;
end
263
How can I change the height of newly created ActiveX control, using the InsertControlItem

with AxGrid1 do
begin
	Columns.Add('Default');
	ScrollBySingleLine := False;
	with Items do
	begin
		ItemHeight[InsertControlItem(Nil,'MSCAL.Calendar',Nil)] := 64;
		ItemAppearance[InsertControlItem(Nil,'MSChart20Lib.MSChart',Nil)] := EXGRIDLib.AppearanceEnum.Etched;
	end;
end
262
How can I change the border for newly created ActiveX control, using the InsertControlItem

with AxGrid1 do
begin
	Columns.Add('Default');
	ScrollBySingleLine := False;
	with Items do
	begin
		ItemAppearance[InsertControlItem(Nil,'MSCAL.Calendar',Nil)] := EXGRIDLib.AppearanceEnum.Sunken;
		ItemAppearance[InsertControlItem(Nil,'MSChart20Lib.MSChart',Nil)] := EXGRIDLib.AppearanceEnum.Etched;
	end;
end
261
How can I access the properties and methods for an ActiveX control that I've just added using the InsertControlItem

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		with (ItemObject[InsertControlItem(h,'MSCAL.Calendar',Nil)] as MSACAL.Calendar) do
		begin
			BackColor := $ffffff;
			GridCellEffect := 0;
			ShowTitle := False;
			ShowDateSelectors := False;
		end;
		ExpandItem[h] := True;
	end;
end
260
How can I access the properties and methods for an ActiveX control that I've just added using the InsertControlItem

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		with (ItemObject[InsertControlItem(h,'MSCAL.Calendar',Nil)] as MSACAL.Calendar) do
		begin
			BackColor := $ffffff;
		end;
		ExpandItem[h] := True;
	end;
end
259
How can I insert an ActiveX control

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		InsertControlItem(h,'MSCAL.Calendar',Nil);
		ExpandItem[h] := True;
	end;
end
258
How can I change at runtime the parent of the item

with AxGrid1 do
begin
	LinesAtRoot := EXGRIDLib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Default');
	with Items do
	begin
		hP := AddItem('Root');
		hC := AddItem('Child');
		SetParent(hC,hP);
	end;
end
257
How can I sort the items

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
	end;
	Columns.Item['Default'].SortOrder := EXGRIDLib.SortOrderEnum.SortDescending;
end
256
How do I sort the child items

with AxGrid1 do
begin
	Columns.Add('Default');
	with Items do
	begin
		h := AddItem('Root');
		InsertItem(h,Nil,'Child 1');
		InsertItem(h,Nil,'Child 2');
		ExpandItem[h] := True;
		SortChildren(h,TObject(0),False);
	end;
end
255
How can I ensure or scroll the control so the item fits the control's client area
with AxGrid1 do
begin
	Columns.Add('Default');
	h := Items.AddItem('item');
	Items.EnsureVisibleItem(h);
end
254
How can I remove or delete all items
with AxGrid1 do
begin
	Columns.Add('Default');
	Items.AddItem('removed item');
	Items.RemoveAllItems();
end
253
How can I remove or delete an item
with AxGrid1 do
begin
	Columns.Add('Default');
	h := Items.AddItem('removed item');
	Items.RemoveItem(h);
end
252
How can I add or insert child items

with AxGrid1 do
begin
	LinesAtRoot := EXGRIDLib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		h := AddItem('Cell 1');
		CellValue[TObject(h),TObject(1)] := 'Cell 2';
		CellValue[TObject(InsertItem(h,Nil,'Cell 3')),TObject(1)] := 'Cell 4';
		CellValue[TObject(InsertItem(h,Nil,'Cell 5')),TObject(1)] := 'Cell 6';
		ExpandItem[h] := True;
	end;
end
251
How can I add or insert a child item

with AxGrid1 do
begin
	LinesAtRoot := EXGRIDLib.LinesAtRootEnum.exLinesAtRoot;
	Columns.Add('Default');
	with Items do
	begin
		InsertItem(AddItem('root'),Nil,'child');
	end;
end
250
How can I add or insert an item

with AxGrid1 do
begin
	Columns.Add('C1');
	Columns.Add('C2');
	with Items do
	begin
		CellValue[TObject(AddItem('Cell 1')),TObject(1)] := 'Cell 2';
		h := AddItem('Cell 3');
		CellValue[TObject(h),TObject(1)] := 'Cell 4';
	end;
end
249
How can I add or insert an item

with AxGrid1 do
begin
	Columns.Add('Default');
	Items.AddItem('new item');
end
248
How can I get the columns as they are shown in the control's sortbar
with AxGrid1 do
begin
	var_Object := (Columns.ItemBySortPosition[TObject(0)] as Object);
end
247
How can I access the properties of a column

with AxGrid1 do
begin
	Columns.Add('A');
	Columns.Item['A'].HeaderBold := True;
end
246
How can I remove all the columns
with AxGrid1 do
begin
	Columns.Clear();
end
245
How can I remove a column
with AxGrid1 do
begin
	Columns.Remove('A');
end
244
How can I get the number or the count of columns
with AxGrid1 do
begin
	var_Count := Columns.Count;
end
243
How can I change the font for all cells in the entire column

with AxGrid1 do
begin
	f := (ComObj.CreateComObject(ComObj.ProgIDToClassID('StdFont')) as stdole.StdFont);
	with f do
	begin
		Name := 'Tahoma';
		Size := 12;
	end;
	with ConditionalFormats.Add('1',Nil) do
	begin
		Font := (f as stdole.StdFont);
		ApplyTo := EXGRIDLib.FormatApplyToEnum.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
242
How can I change the background color for all cells in the column

with AxGrid1 do
begin
	var_ConditionalFormat := ConditionalFormats.Add('1',Nil);
	with var_ConditionalFormat do
	begin
		BackColor := $ff;
		ApplyTo := EXGRIDLib.FormatApplyToEnum.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
241
How can I change the foreground color for all cells in the column

with AxGrid1 do
begin
	var_ConditionalFormat := ConditionalFormats.Add('1',Nil);
	with var_ConditionalFormat do
	begin
		ForeColor := $ff;
		ApplyTo := EXGRIDLib.FormatApplyToEnum.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
240
How can I show as strikeout all cells in the column

with AxGrid1 do
begin
	var_ConditionalFormat := ConditionalFormats.Add('1',Nil);
	with var_ConditionalFormat do
	begin
		StrikeOut := True;
		ApplyTo := EXGRIDLib.FormatApplyToEnum.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
239
How can I underline all cells in the column

with AxGrid1 do
begin
	var_ConditionalFormat := ConditionalFormats.Add('1',Nil);
	with var_ConditionalFormat do
	begin
		Underline := True;
		ApplyTo := EXGRIDLib.FormatApplyToEnum.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
238
How can I show in italic all data in the column

with AxGrid1 do
begin
	var_ConditionalFormat := ConditionalFormats.Add('1',Nil);
	with var_ConditionalFormat do
	begin
		Italic := True;
		ApplyTo := EXGRIDLib.FormatApplyToEnum.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
237
How can I bold the entire column

with AxGrid1 do
begin
	var_ConditionalFormat := ConditionalFormats.Add('1',Nil);
	with var_ConditionalFormat do
	begin
		Bold := True;
		ApplyTo := EXGRIDLib.FormatApplyToEnum.exFormatToColumns;
	end;
	Columns.Add('Column');
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
236
How can I display a computed column and highlight some values that are negative or less than a value

with AxGrid1 do
begin
	Columns.Add('A');
	Columns.Add('B');
	(Columns.Add('(A+B)*1.19') as EXGRIDLib.Column).ComputedField := '(dbl(%0) + dbl(%1)) * 1.19';
	with Items do
	begin
		CellValue[TObject(AddItem(TObject(1))),TObject(1)] := TObject(2);
	end;
	with Items do
	begin
		CellValue[TObject(AddItem(TObject(10))),TObject(1)] := TObject(20);
	end;
	var_ConditionalFormat := ConditionalFormats.Add('dbl(%2) > 10',Nil);
	with var_ConditionalFormat do
	begin
		Bold := True;
		ForeColor := $ff;
		ApplyTo := EXGRIDLib.FormatApplyToEnum($2);
	end;
end
235
Can I display a computed column so it displays the VAT, or SUM

with AxGrid1 do
begin
	Columns.Add('A');
	Columns.Add('B');
	(Columns.Add('(A+B)*1.19') as EXGRIDLib.Column).ComputedField := '(dbl(%0) + dbl(%1)) * 1.19';
	with Items do
	begin
		CellValue[TObject(AddItem(TObject(1))),TObject(1)] := TObject(2);
	end;
	with Items do
	begin
		CellValue[TObject(AddItem(TObject(10))),TObject(1)] := TObject(20);
	end;
end
234
How can I show a column that adds values in the cells

with AxGrid1 do
begin
	Columns.Add('A');
	Columns.Add('B');
	(Columns.Add('A+B') as EXGRIDLib.Column).ComputedField := 'dbl(%0) + dbl(%1)';
	with Items do
	begin
		CellValue[TObject(AddItem(TObject(1))),TObject(1)] := TObject(2);
	end;
	with Items do
	begin
		CellValue[TObject(AddItem(TObject(10))),TObject(1)] := TObject(20);
	end;
end
233
Is there any function to filter the control's data as I type, so the items being displayed include the typed characters

with AxGrid1 do
begin
	var_Column := (Columns.Add('Filter') as EXGRIDLib.Column);
	with var_Column do
	begin
		FilterOnType := True;
		DisplayFilterButton := True;
		AutoSearch := EXGRIDLib.AutoSearchEnum.exContains;
	end;
	Items.AddItem('Canada');
	Items.AddItem('USA');
end
232
Is there any function to filter the control's data as I type, something like filter on type

with AxGrid1 do
begin
	var_Column := (Columns.Add('Filter') as EXGRIDLib.Column);
	with var_Column do
	begin
		FilterOnType := True;
		DisplayFilterButton := True;
	end;
	Items.AddItem('Canada');
	Items.AddItem('USA');
end
231
How can I programmatically filter a column

with AxGrid1 do
begin
	with (Columns.Add('Filter') as EXGRIDLib.Column) do
	begin
		DisplayFilterButton := True;
		FilterType := EXGRIDLib.FilterTypeEnum.exNonBlanks;
	end;
	Items.AddItem(Nil);
	Items.AddItem('not empty');
	ApplyFilter();
end
230
How can I show or display the control's filter

with AxGrid1 do
begin
	(Columns.Add('Filter') as EXGRIDLib.Column).DisplayFilterButton := True;
end
229
How can I customize the items being displayed in the drop down filter window

with AxGrid1 do
begin
	with (Columns.Add('Custom Filter') as EXGRIDLib.Column) do
	begin
		DisplayFilterButton := True;
		DisplayFilterPattern := False;
		CustomFilter := 'Excel Spreadsheets (*.xls )||*.xls|||Word Documents||*.doc|||Powerpoint Presentations||*.pps|||Text Documents (*.log,*.txt)||*.t' + 
	'xt|*.log';
		FilterType := EXGRIDLib.FilterTypeEnum.exPattern;
		Filter := '*.xls';
	end;
	Items.AddItem('excel.xls');
	Items.AddItem('word.doc');
	Items.AddItem('pp.pps');
	Items.AddItem('text.txt');
	ApplyFilter();
end
228
How can I change the order or the position of the columns in the sort bar

with AxGrid1 do
begin
	SortBarVisible := True;
	SortBarColumnWidth := 48;
	(Columns.Add('C1') as EXGRIDLib.Column).SortOrder := EXGRIDLib.SortOrderEnum.SortAscending;
	(Columns.Add('C2') as EXGRIDLib.Column).SortOrder := EXGRIDLib.SortOrderEnum.SortDescending;
	Columns.Item['C2'].SortPosition := 0;
end
227
How do I arrange my columns on multiple levels

with AxGrid1 do
begin
	(Columns.Add('S') as EXGRIDLib.Column).Width := 32;
	(Columns.Add('Level 2') as EXGRIDLib.Column).LevelKey := TObject(1);
	(Columns.Add('Level 3') as EXGRIDLib.Column).LevelKey := TObject(1);
	(Columns.Add('Level 4') as EXGRIDLib.Column).LevelKey := TObject(1);
	(Columns.Add('Level 1') as EXGRIDLib.Column).LevelKey := '2';
	(Columns.Add('Level 2') as EXGRIDLib.Column).LevelKey := '2';
	(Columns.Add('Level 3') as EXGRIDLib.Column).LevelKey := '2';
	(Columns.Add('Level 4') as EXGRIDLib.Column).LevelKey := '2';
	(Columns.Add('E') as EXGRIDLib.Column).Width := 32;
end
226
How do I arrange my columns on multiple lines

with AxGrid1 do
begin
	HeaderHeight := 32;
	(Columns.Add('') as EXGRIDLib.Column).HTMLCaption := 'Line 1<br>Line 2';
end
225
How can I display all cells using HTML format

with AxGrid1 do
begin
	(Columns.Add('HTML') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellValueFormat] := TObject(1);
	Items.AddItem('<font ;12>T</font>his <b>is</b> an <a>html</a> <font Tahoma><fgcolor=FF0000>text</fgcolor></font>.');
end
224
How can I display all cells using multiple lines

with AxGrid1 do
begin
	(Columns.Add('MultipleLine') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellSingleLine] := TObject(False);
	(Columns.Add('SingleLine') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellSingleLine] := TObject(True);
	with Items do
	begin
		CellValue[TObject(AddItem('This is a bit of long text that should break the line')),TObject(1)] := 'this is a bit of long text that''s displayed on a single line';
	end;
end
223
How do change the vertical alignment for all cells in the column

with AxGrid1 do
begin
	(Columns.Add('MultipleLine') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellSingleLine] := TObject(False);
	(Columns.Add('VAlign') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellVAlignment] := TObject(2);
	with Items do
	begin
		CellValue[TObject(AddItem('This is a bit of long text that should break the line')),TObject(1)] := 'bottom';
	end;
	with Items do
	begin
		CellValue[TObject(AddItem('This is a bit of long text that should break the line')),TObject(1)] := 'bottom';
	end;
end
222
How do change the foreground color for all cells in the column

with AxGrid1 do
begin
	(Columns.Add('ForeColor') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellForeColor] := TObject(255);
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
221
How do change the background color for all cells in the column

with AxGrid1 do
begin
	(Columns.Add('BackColor') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellBackColor] := TObject(255);
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
220
How do I show buttons for all cells in the column

with AxGrid1 do
begin
	with (Columns.Add('Button') as EXGRIDLib.Column) do
	begin
		Def[EXGRIDLib.DefColumnEnum.exCellHasButton] := TObject(True);
		Def[EXGRIDLib.DefColumnEnum.exCellButtonAutoWidth] := TObject(True);
	end;
	Items.AddItem(' Button 1 ');
	Items.AddItem(' Button 2 ');
end
219
How do I show buttons for all cells in the column

with AxGrid1 do
begin
	(Columns.Add('Button') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellHasButton] := TObject(True);
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
218
How do I display radio buttons for all cells in the column

with AxGrid1 do
begin
	(Columns.Add('Radio') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellHasRadioButton] := TObject(True);
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
217
How do I display checkboxes for all cells in the column

with AxGrid1 do
begin
	(Columns.Add('Check') as EXGRIDLib.Column).Def[EXGRIDLib.DefColumnEnum.exCellHasCheckBox] := TObject(True);
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
216
How can I display a tooltip when the cursor hovers the column

with AxGrid1 do
begin
	(Columns.Add('tooltip') as EXGRIDLib.Column).ToolTip := 'This is a bit of text that is shown when user hovers the column.';
end
215
Is there any function to assign a key to a column instead using its name or capion
with AxGrid1 do
begin
	(Columns.Add('Data') as EXGRIDLib.Column).Key := 'DKey';
	Columns.Item['DKey'].Caption := 'new caption';
end
214
Is there any function to assign any extra data to a column
with AxGrid1 do
begin
	(Columns.Add('Data') as EXGRIDLib.Column).Data := 'your extra data';
end
213
By default, the column gets sorted descending, when I first click its header. How can I change so the column gets sorted ascending when the user first clicks the column's header

with AxGrid1 do
begin
	(Columns.Add('Sort') as EXGRIDLib.Column).DefaultSortOrder := True;
end
212
How can I specify the maximum width for the column, if I use WidthAutoResize property

with AxGrid1 do
begin
	with (Columns.Add('Auto') as EXGRIDLib.Column) do
	begin
		WidthAutoResize := True;
		MinWidthAutoResize := 32;
		MaxWidthAutoResize := 128;
	end;
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
211
How can I specify the minimum width for the column, if I use WidthAutoResize property

with AxGrid1 do
begin
	with (Columns.Add('Auto') as EXGRIDLib.Column) do
	begin
		WidthAutoResize := True;
		MinWidthAutoResize := 32;
	end;
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
210
Is there any option to resize the column based on its data, captions

with AxGrid1 do
begin
	(Columns.Add('A') as EXGRIDLib.Column).WidthAutoResize := True;
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
209
How can I align the icon in the column's header in the center

with AxGrid1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with (Columns.Add('') as EXGRIDLib.Column) do
	begin
		HeaderImage := 1;
		HeaderImageAlignment := EXGRIDLib.AlignmentEnum.CenterAlignment;
	end;
end
208
How do I align the icon in the column's header to the right

with AxGrid1 do
begin
	Images('gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTql' + 
	'Vq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0' + 
	'ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yN' + 
	'AOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=');
	with (Columns.Add('ColumnName') as EXGRIDLib.Column) do
	begin
		HeaderImage := 1;
		HeaderImageAlignment := EXGRIDLib.AlignmentEnum.RightAlignment;
	end;
end
207
How do I show or hide the sorting icons, but still need sorting
with AxGrid1 do
begin
	(Columns.Add('Sorted') as EXGRIDLib.Column).SortOrder := EXGRIDLib.SortOrderEnum.SortAscending;
	Columns.Item[TObject(0)].DisplaySortIcon := False;
end
206
How do I enable or disable the entire column

with AxGrid1 do
begin
	Columns.Add('C1');
	(Columns.Add('Disabled') as EXGRIDLib.Column).Enabled := False;
	with Items do
	begin
		CellValue[TObject(AddItem(TObject(0))),TObject(1)] := '0.1';
	end;
	with Items do
	begin
		CellValue[TObject(AddItem(TObject(1))),TObject(1)] := '1.1';
	end;
end
205
How do I disable drag and drop columns
with AxGrid1 do
begin
	(Columns.Add('C1') as EXGRIDLib.Column).AllowDragging := False;
	(Columns.Add('C2') as EXGRIDLib.Column).AllowDragging := False;
end
204
How do I disable resizing a column at runtime
with AxGrid1 do
begin
	(Columns.Add('Unsizable') as EXGRIDLib.Column).AllowSizing := False;
	Columns.Add('C2');
	Columns.Add('C3');
	Columns.Add('C4');
end
203
How can I align the column to the right, and its caption too

with AxGrid1 do
begin
	with (Columns.Add('Column') as EXGRIDLib.Column) do
	begin
		Alignment := EXGRIDLib.AlignmentEnum.RightAlignment;
		HeaderAlignment := EXGRIDLib.AlignmentEnum.RightAlignment;
	end;
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
202
How can I align the column to the right

with AxGrid1 do
begin
	(Columns.Add('Column') as EXGRIDLib.Column).Alignment := EXGRIDLib.AlignmentEnum.RightAlignment;
	Items.AddItem(TObject(0));
	Items.AddItem(TObject(1));
end
201
How do I change the column's caption

with AxGrid1 do
begin
	(Columns.Add('Column') as EXGRIDLib.Column).Caption := 'new caption';
end